home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 26
/
Cream of the Crop 26.iso
/
program
/
vol16n12.zip
/
ICONED.ZIP
/
ICON_SRC.ZIP
/
ICONTEST.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1997-05-28
|
782b
|
42 lines
unit IconTest;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, ColorGrd, StdCtrls;
type
TIconTestForm = class(TForm)
TestImage: TImage;
Panel1: TPanel;
ColorGrid1: TColorGrid;
Label1: TLabel;
Button1: TButton;
procedure ColorGrid1Change(Sender: TObject);
procedure FormActivate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
IconTestForm: TIconTestForm;
implementation
{$R *.DFM}
procedure TIconTestForm.ColorGrid1Change(Sender: TObject);
begin
Color:= ColorGrid1.ForegroundColor;
end;
procedure TIconTestForm.FormActivate(Sender: TObject);
begin
ColorGrid1Change(Sender);
end;
end.